home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / wildcat / net_port.zip / RUNALL.WCC < prev    next >
Text File  |  1996-04-16  |  975b  |  43 lines

  1. ' Written for public by Charles Meadows 01/25/96
  2. ' Runs faster with EnablePages FALSE    01/29/96 - CM
  3. ' Removed StatusClose()                 02/03/96 - CM
  4. ' Change the (10) below to as many programs as you will have in runall.cfg
  5. '
  6. EnablePages FALSE
  7.  
  8. Dim RunAll(10) As String
  9. Dim RunAll_Counter As Integer
  10. Dim l As Integer
  11. Dim RunAllCfg As String
  12. Dim Temp As String
  13.  
  14.  
  15. RunAllCfg  = ProgPath + "RUNALL.CFG"
  16.  
  17. If Paramcount > 0 Then
  18.    RunAllCfg = ProgPath + Paramstr(1)
  19. End If
  20.  
  21. CLS
  22. PRINT "Reading"+RunAllCfg
  23. UpdateScreen
  24.  
  25. RunAll_Counter = 0
  26. If Exists(RunAllCfg) Then
  27.    Open RunAllCfg For Input as #1
  28.       While Not(EOF(1))
  29.         Input #1, Temp
  30.         If Trim(Temp) <> "" And Left(Temp,1) <> ";" Then
  31.            RunAll_Counter = RunAll_Counter + 1
  32.            RunAll(RunAll_Counter) = Trim(Ucase(Temp))
  33.         End If
  34.    Wend
  35.    Close #1
  36. End If
  37.  
  38. For l = 1 To RunAll_Counter
  39.    Print RunAll(l)
  40.    UpdateScreen
  41.    Run RunAll(l)
  42. Next
  43.